home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00125.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  2.6 KB  |  94 lines
  1. global gMovieSprite
  2.  
  3. on checkKey
  4.   set userKey to the key
  5.   set userKeyCode to the keyCode
  6.   if (userKey >= "0") and (userKey <= "9") then
  7.     set the soundLevel to value(userKey)
  8.     exit
  9.   end if
  10.   if commandKey() or developersKey() then
  11.     if userKey = "A" then
  12.       exit
  13.     else
  14.       if userKey = "B" then
  15.         exit
  16.       else
  17.         if userKey = "F" then
  18.           exit
  19.         else
  20.           if userKey = "G" then
  21.             exit
  22.           else
  23.             if userKey = "P" then
  24.               exit
  25.             else
  26.               if userKey = "N" then
  27.                 exit
  28.               else
  29.                 if userKey = "S" then
  30.                   exit
  31.                 else
  32.                   if (userKey = "L") or (userKey = "O") then
  33.                     exit
  34.                   else
  35.                     if (userKey = "Q") or (userKey = "E") or (userKey = "X") then
  36.                       exit
  37.                     end if
  38.                   end if
  39.                 end if
  40.               end if
  41.             end if
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47.   if developersKey() then
  48.     put "the keyCode: " & the keyCode & ", the key: " & the key
  49.     if QT(gMovieSprite) then
  50.       if the keyCode = 123 then
  51.         set the movieRate of sprite gMovieSprite to 0
  52.         updateStage()
  53.         set the movieTime of sprite gMovieSprite to the movieTime of sprite gMovieSprite - 6
  54.         updateStage()
  55.         put "The movieTime of sprite gMovieSprite: " & the movieTime of sprite gMovieSprite
  56.       else
  57.         if the keyCode = 124 then
  58.           set the movieRate of sprite gMovieSprite to 0
  59.           updateStage()
  60.           set the movieTime of sprite gMovieSprite to the movieTime of sprite gMovieSprite + 6
  61.           updateStage()
  62.           put "The movieTime of sprite gMovieSprite: " & the movieTime of sprite gMovieSprite
  63.         else
  64.           if the keyCode = 125 then
  65.             set the movieRate of sprite gMovieSprite to 0
  66.             updateStage()
  67.             put "The movieTime of sprite gMovieSprite: " & the movieTime of sprite gMovieSprite
  68.           else
  69.             if the keyCode = 126 then
  70.               set the movieRate of sprite gMovieSprite to 0
  71.               updateStage()
  72.               set the movieRate of sprite gMovieSprite to 1
  73.               updateStage()
  74.               put "The movieTime of sprite gMovieSprite: " & the movieTime of sprite gMovieSprite
  75.             end if
  76.           end if
  77.         end if
  78.       end if
  79.     end if
  80.   end if
  81. end
  82.  
  83. on developersKey
  84.   return the shiftDown and the controlDown
  85. end
  86.  
  87. on commandKey
  88.   if the machineType = 256 then
  89.     return the controlDown
  90.   else
  91.     return the commandDown
  92.   end if
  93. end
  94.